Developer CD Series 1998 April: Mac OS SDK/Dev.CD Apr 98 SDK2.toast/Development Kits (Disc 2)/ScriptX/Documentation/Code Examples from Docs/langguid/chap_04/xmpl_05.sx

Text File | 1996-05-21 | 470 b | 27 lines | [TEXT/ttxt]

--<<<
-- Kaleida Labs, Inc.
-- Field Guide to the ScriptX Language
-- chapter 4, example 5

-- create a module to prevent naming conflicts
module Scratch17 uses ScriptX end
in module Scratch17

-- loop control expressions
global val, i

for i in #(1, 3, 6, 9) do (
    if (i * i) = 36 do continue
    print i
)

for i := 1 to 5 collect (
    if i = 3 then continue else i
)

val := for i in #(1, 3, 6, 9) do (
    if i = 6 do exit with "Six"
    print i
)
print val
-->>>